home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Information / WebSites / AmigaNorthThames / cgi-bin / admin.pl < prev    next >
Perl Script  |  2001-04-21  |  9KB  |  398 lines
  1. #!/usr/bin/perl
  2. ##############################################################################
  3. # Administration Script for NewsDude                                            
  4. #  This script is Copyright (c) 2000 by Perlboy.org, Stuart Low all rights
  5. #  reserved.  It may be used under the terms detailed in 
  6. #  http://www.perlboy.org/scripts/license.html
  7. #
  8. #  YOU MAY MODIFY THIS SCRIPT PROVIDED YOU LEAVE THE ABOVE COPYRIGHT HEADING
  9. #  INTACT.
  10. #
  11. #  Other than that, enjoy the script. I did it mainly for a dude on
  12. #  alt.www.webmaster but also just for a kick on my last day of exams.
  13. # 
  14. #  If you want to get in touch, mail me at thedude@perlboy.org
  15. #  I WILL NOT ANSWER SUPPORT QUESTIONS THOUGH.
  16. #  This is mainly done due to the fact that I am a school student
  17. #  and therefore cannot afford to offer support for my free scripts.
  18. #
  19. #  Once again. Visit alt.www.webmaster there are MANY a soul who will
  20. #  happily help you.
  21. #
  22. #
  23. #  If you own a business and use this on your clients sites
  24. #  Could you please email me and tell me so that I can add your
  25. #  business to a list of Web Design firms which use my script
  26. #  Much appreciated
  27. #  
  28. #  Perlboy. (Stuart Low)
  29. #  thedude@perlboy.org
  30. #
  31. # ------------------------------------------------------------------
  32. ##############################################################################
  33.  
  34.  
  35. # Load Settings
  36.  
  37. require "vars.pl";
  38. require "subs.pl";
  39.  
  40. # Set the home url of this script for any calls, notable the password login_html
  41. $admin_home='http://' . $ENV{'SERVER_NAME'} .  
  42.          ($ENV{'SERVER_PORT'} != 80 ? ":$ENV{'SERVER_PORT'}" : '') .
  43.          $ENV{'SCRIPT_NAME'} . $ENV{'PATH_INFO'} .
  44.          (length ($ENV{'QUERY_STRING'}) ? "?$ENV{'QUERY_STRING'}" : '');
  45. ###
  46.  
  47.  
  48.  
  49. print "Content-Type: text/html\n\n";
  50.  
  51. &FormParse;
  52.  
  53. # Check if Logout is the command, different position to stop looping
  54. if (($FORM{'operation'}) eq 'Logout') { &login_html; exit; }
  55.  
  56. # Password checking processs, checks every time executed, top security.
  57.  
  58. if (!$FORM{'login_password'}) { &login_html; exit; }
  59.  
  60.  
  61. if ($FORM{'login_password'} ne $adminpassword) { &error_html("Wrong password"); }
  62.  
  63. &Date;
  64. # Load some files
  65.  
  66. open(NEWS, "news.arch");
  67. @DelMe=<NEWS>;
  68. close(NEWS);
  69.  
  70. ### Now check for commands
  71.  
  72. # Check for news updates
  73. if ((($FORM{'operation'}) eq 'Add News') and (($FORM{'news_command'}) eq 'Add')) { &News_Add; exit; }
  74. if (($FORM{'operation'}) eq 'Add News') { &News1; exit; }
  75.  
  76. # Check for Deleting News
  77. if ((($FORM{'operation'}) eq 'Delete News') and (($FORM{'news_command'}) eq 'DeleteYes')) { &news_Del2; exit; }
  78. if (($FORM{'operation'}) eq 'Delete News') { &news_Del1; exit; }
  79.  
  80. # If no matches print out the good ol' default page.
  81. print qq~
  82.  
  83. <html>
  84. <head>
  85. <title>Admin Section</title>
  86. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  87. </head>
  88.  
  89. <body background="http://www.amiganorththames.co.uk/Gfx/bg_stripe.gif" text="#000000" link="#DD3300">
  90.  
  91. <form method="POST"><input type="hidden" name="login_password" value="$FORM{'login_password'}"><input type="hidden" name="username" value="$FORM{'username'}">
  92.  
  93.  
  94. <br><center> Welcome $pa_column1{$FORM{'username'}} to the admin section. <BR><br>
  95.  
  96. <table border=0 width=200 ALIGN=CENTER>
  97.   <tr>
  98.      <td><input type="submit" name="operation" value="Add News"></td> </td>
  99.      <td><input type="submit" name="operation" value="Delete News"></td> </td>
  100. </tr>
  101. </table> 
  102.  
  103. <BR>
  104. <TABLE WIDTH=70% ALIGN=RIGHT BORDER=0 CELLSPACING=0 CELLPADDING=1>
  105. <TR>
  106. <TD COLSPAN=2 ALIGN=LEFT>
  107. Your current details are<br>
  108. </TD>
  109. </TR>
  110.  
  111. <TR>
  112. <TD WIDTH=100 ALIGN=RIGHT>
  113. <B>Real Name:</B>
  114. </TD>
  115. <TD>
  116. $adminrealname 
  117. </TD>
  118.  
  119. </TR>
  120. <TR>
  121.  
  122. <TD WIDTH=100 ALIGN=RIGHT> 
  123. <B>Email Address:</B> 
  124. </TD>
  125. <TD>
  126. $adminemailaddress 
  127. </TD>
  128.  
  129. </TR>
  130. <TR>
  131.  
  132. <TD WIDTH=100 ALIGN=RIGHT> 
  133.    <B>  Username:</B> 
  134. </TD>
  135. <TD>
  136. $adminusername 
  137. </TD>
  138.  
  139. </TR>
  140. <TR>
  141.  
  142. <TD WIDTH=100 ALIGN=RIGHT> 
  143.   <B>   Password: </B>
  144. </TD>
  145. <TD>
  146. $adminpassword 
  147. </TD>
  148. </TR>
  149. </TABLE>
  150.  
  151. ~;
  152.  
  153. # Print the footers
  154. print qq~
  155.  
  156. </body></html>
  157.  
  158. ~;
  159.  
  160. sub News1 {
  161.  
  162.  
  163. print qq~
  164.  
  165. <HTML>
  166. <BODY BACKGROUND="http://www.amiganorththames.co.uk/Gfx/bg_stripe.gif">
  167.  
  168.      <center>
  169.      <font face="arial, helvetica" color=red size=+1>
  170.      <strong>Update News<br><br></strong></font></font></font> 
  171.      </center>
  172.      <form method=POST><input type="hidden" name="login_password" value="$FORM{'login_password'}"><input type="hidden" name="username" value="$FORM{'username'}"><input type="hidden" name="operation" value="Add News">
  173.  
  174.  
  175.      
  176. <table border=0 width=60% ALIGN=CENTER>
  177.  
  178. <tr>
  179.  
  180.      <td align=CENTER>
  181.           <B>Posted On:</B> $todays_date 
  182.      </td>
  183.      
  184. </TR>
  185.  
  186. <TR>
  187.      <td align=CENTER> 
  188.           <B>Post by:</B> $FORM{'username'}
  189.      </td>
  190.  
  191. </tr>
  192.  
  193. </TABLE>
  194.  
  195. <BR>
  196.      <table border=0 width=95% ALIGN=CENTER>
  197.       <tr>
  198.         <td width=100 valign=top align=RIGHT><b>Title: </b></td>
  199.         <td><INPUT TYPE=text name=title size=30></td>
  200.       </tr>
  201.  
  202.       <tr>
  203.         <td width=100 valign=top align=RIGHT><b>News: </b></td>
  204.         <td><textarea rows=20 name=item cols=80></textarea></td>
  205.       </tr>
  206.       <tr>
  207.         
  208.         <td COLSPAN=2 ALIGN=CENtER><input type=submit value=Add name=news_command></td>
  209.       </tr>
  210.     </table>
  211.     <br><br>
  212. </BODY>
  213. </HTML>
  214.  
  215. ~;
  216.  
  217. }
  218.  
  219. sub News_Add {
  220.  
  221. open(NEWSFILE, "news.arch");
  222. @OldNews=<NEWSFILE>;
  223. close(NEWSFILE);
  224.  
  225. $newline='<br>';
  226.  
  227. $FORM{'item'} =~ s/\r//g;
  228. $FORM{'item'} =~ s/\n/$newline/g;
  229.  
  230.  
  231. $html .= "$FORM{'username'}|$todays_date|$FORM{'title'}|$FORM{'item'}\n";
  232. foreach $line (@OldNews) {
  233.           $html .= "$line";
  234.                }
  235.  
  236. open(NEWSFILE, ">news.arch");
  237. print NEWSFILE "$html";
  238. close(NEWSFILE);
  239.  
  240.  
  241. print qq~
  242. <HTML>
  243. <BODY BACKGROUND="http://www.amiganorththames.co.uk/Gfx/bg_stripe.gif">
  244.  
  245.      <center>
  246.      <font face="arial, helvetica" color=red size=+1>
  247.      <strong>News Updated<br><br></strong></font></font></font> 
  248.      <form method=POST><input type="hidden" name="login_password" value="$FORM{'login_password'}"><input type="hidden" name="username" value="$FORM{'username'}"><input type="hidden" name="operation" value="News"><br><br>
  249. Hey! News is Updated Dude.
  250. <input type=submit value="Return to Main" Add name=operation>
  251. </BODY>
  252. </HTML>
  253.  
  254. ~;
  255.  
  256. }
  257.  
  258.  
  259. sub news_Del1 {
  260.  
  261. $recordno='1';
  262.  
  263. foreach $line (@DelMe) {
  264.  
  265. ($Nick,$time,$title,$message) = split(/\|/,$line); 
  266. $email=$adminemailaddress;
  267.  
  268. print qq~
  269. <HTML>
  270. <BODY background="http://www.amiganorththames.co.uk/Gfx/bg_stripe.gif" text="#000000" link="#DD3300">
  271.                
  272.  
  273. <table width=95% border=0 ALIGN=CENTER CELLPADDING=1 CELLSPACING=0>
  274.  
  275. <TR>
  276. <TD COLSPAN=2 ALIGN=CENTER>
  277. <HR WIDTH=98%>
  278. </TD>
  279. </TR>
  280.  
  281. <tr> 
  282.  
  283.      <td WIDTH=100 ALIGN=RIGHT>
  284. <B>Subject: </B>
  285.      </TD>
  286.      
  287.      <td ALIGN=LEFT WIDTH="*">
  288.           <font size=+1>$title</font>
  289.      </td>
  290.      
  291. </tr>
  292.  
  293. <TR>
  294.  
  295.      <TD ALIGN=RIGHT>
  296.      <B> Date: </B>
  297.      </TD>
  298.  
  299.      <TD ALIGN=LEFT VALIGN=MIDDLE>
  300.      $time
  301.      </TD>
  302.  
  303. </TR>
  304.  
  305. <tr> 
  306.  
  307.      <TD></TD>
  308.  
  309.      <td>
  310.           $message
  311.      </td>
  312.  
  313. </tr>
  314.  
  315. <TR>
  316. <TD COLSPAN=2 ALIGN=CENTER>
  317. <HR WIDTH=98%>
  318. </TD>
  319. </TR>
  320.  
  321. <TR>
  322.  
  323. <TD COLSPAN=2 ALIGN=CENTER>
  324.  
  325.      <form method=POST>
  326.           <input type="hidden" name="login_password" value="$FORM{'login_password'}">
  327.           <input type="hidden" name="username" value="$FORM{'username'}">
  328.           <input type="hidden" name="operation" value="Delete News">
  329.           <input type="hidden" name="news_command" value="DeleteYes">
  330.           <input type="hidden" name="deletethis" value="$recordno">
  331.           <input type=submit value="Delete">
  332.      </form>
  333.  
  334. </td>
  335.  
  336. </tr>
  337.  
  338. </table>
  339.  
  340.  
  341.  
  342. <br>
  343. </BODY></HTML>
  344.  
  345. ~;
  346.  
  347. $recordno = $recordno + 1;
  348.  
  349.  
  350. }
  351. }
  352.  
  353. sub news_Del2 {
  354.  
  355. print "$FORM{'deletethis'} <br>";
  356.  
  357. $recordno = '1';
  358.  
  359. foreach $line (@DelMe) {
  360.  
  361. ($Nick,$time,$title,$message) = split(/\|/,$line); 
  362. $email=$adminemailaddress;
  363.  
  364. if($recordno eq $FORM{'deletethis'}) {
  365. }
  366. else {
  367. $newsfile .="$Nick|$time|$title|$message";
  368. }
  369.  
  370. $recordno = $recordno + 1;
  371.  
  372. }
  373.  
  374. open(NEWSFILE, ">news.arch");
  375. print NEWSFILE "$newsfile";
  376. close(NEWSFILE);
  377.  
  378. print qq~
  379. <HTML>
  380. <BODY BACKGROUND="http://www.amiganorththames.co.uk/Gfx/bg_stripe.gif">
  381.  
  382.      <center>
  383.      <font face="arial, helvetica" color=red size=+1>
  384.      <strong>News Deleted<br><br></strong></font></font></font> 
  385.      <form method=POST><input type="hidden" name="login_password" value="$FORM{'login_password'}"><input type="hidden" name="username" value="$FORM{'username'}"><input type="hidden" name="operation" value="News"><br><br>
  386.  
  387. <b><center>News Post Removed</center></b>
  388. <input type=submit value="Return to Main" name=operation>
  389. </BODY>
  390. </HTML>
  391.  
  392. ~;
  393.  
  394.  
  395.  
  396.  
  397. }
  398.